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DECLARATIONS 
RMSACCESS = PERFORM FCP ACCESS SUNCTION 
PMSSETHBK 


PERFORM FCP DEACCESS FUNCTION 


16-SEP-1984 00:09:38 VAX/VMS Macro v04-00 
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SBEGIN RMOACCESS,001,RMSRMSO,<ACCESS/DEACCESS ROUTINES> 


—MmARRBARABAARAARAAAASLASLALALALAAALASALASARSAASAAASEAASARASALAR ASAE SESE ERAS ALAS SE OS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
** ® 
‘* * 
: x 
** ® 
‘® ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
j* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. . 
* ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. . 
*® ® 
*® ® 
‘® ® 
:® ® 
** * 
*® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(RR RRRASRARARASARASASALALASESASESALASAARA SAS RSARAS ERASERS RRR ARRA SARS SSAA ES SE 
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3++ 
; Facility: rms32 
Abstract: 


this module performs the file access and 
de-access fcp functions. 


Environment: 
star processor running starlet exec. 


pope eloloejlololololo) 


pele ol el al el olelolololol oa) 


Author: L F Laverdure, creation date: 10-MAR-1977 

Modified By: | 

V04-001 ywT0196 yim Teague 14-Sep-1984 | 
Restore V3 behavior of ignoring UPI for relative 


and ISAM files. 


v03-043 RASO326 Ron Schaefer 23-Jul1984 
Fix RASO309 to force GET access to be allowed internally | 
if a valid EXE access is requested. This makes 
execute-only command procedures work. 


SOoOOSOCSOSSOSOSSOSOOSOSOSOSOSOOOSOOOSOOOSOO 


SIDS DS DS DS DS DDD DS DTI BB BB BB EE ANIA 
A—OODNAU EWN 9 OONAU EWN 0 OOO NOUS WN OODNOU EWN D000 


SOOOSCOCSOSOOSOOOOOOSOOSOSOOSOSOSOSOOSOSOSOOOVSOOSOSOSOSOOOOOOO OOOO OOOOOOOOOOO 


3 

0 ; 

0 ; 

0 ; 

0 ; 

0 ; 

000 : 

000 3 

000 $ 

000 3 

000 ; 

000 : 

000 Hy 

000 : 

ae 

000 ; V03-042 JwT0188 Jim Teague 21-Jul-1984 | 
000 ; Don't allow SOPEN with sharing on magtapes. RMS 
000 3 was letting this slip through for S1a-byte fixed 
; 3 ; sequential files. 
000 : V03-041 RASO309 Ron Schaefer 15-Jun-1984 | 
8 : Add support for execute-only images and command files. | 
000 : V03-040 JwT0179 Jim Teague 23-Apr-1984 | 
000 3 Always check for an ATR work area before allocating | 
3 : one. 

000 : V03-039 ywT0175 Jim Teague 12-Apr-1984 | 
3 Finish access mode ATR implementation. 
000 : v03-038 $HZ0005 Stephen H. Zalewski 06-Apr-1984 

000 s Back out the second part of shz0004. Two reasons, first, 

000 3 lobal buffers is a connect time option, no open time option. 
000 3 econd, we would be record locking read only isam files, and 
000 ; we never did before. 
$00 72 ; v03-037 JwT0173 Jim Teague 1-Apr-1984 

O80 t 3 Disable access mode ATRs for now. 

000 75; V03-036 ywT0172 Jim Teague 28-Mar-1984 

4 3 Keep exec mode byte at end of ATR work area. 

000 78: V03-035 $HZ0004 Stephen H. Zalewski, | 21-Mar-1984 

000 ty 3 Do not take out a file lock if UPI was specified in the 

44 ? ; SHR field. | 
$00 § ; If file is READ ONLY, and global buffers specified, turn | 
000 3 on sharing so that global buffers can be used. Old behavior | 
000 4; was to not use sharing since no locking was necessary, however 
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this prevented global buffering from being turned on. 


v03-034 RASO276 Ron Schaefer 20-Mar-1984 
Prevent truncete-on-c lose (TEF FOP option) from being 
honored for relative or indexed files. 


v03-033 fyfever Jim Teague 15-Mar-1984 
Allow write access with buffer offset as tong as 
BIO is set. Also implement access-mode ATRs. 


v03-032 0GB0012 Donald G. Blair 01-Mar-1984 
Make changes related to ACP calls as part of the 
restructuring necessary to support access mode 
protected files. 


v03-031 ywT0158 Jim Teague 27-Feb-1984 
Adjustment to ANSI buffer offset stuff. I had placed 
the code to request the ATRSC SUFFER OFFSET attribute 
in a common path for both SOPEN and SCREATE. It 
should only have been in the SOPEN access path. 


v03-030 yoy Stephen H. Zalewski, 27-Feb-1984 
Do not bump the available local buffer count in routine 
RMSSETEBK as the local buffer it was trying to give back 
(used for FWA) no Longer exists. 


v03-029 $HZ0002 Stephen H. Zalewski 21-Feb-1984 | 
If user rs file no=sharing, multi-streaming read only, 
Mt. locking to occur, otherwise no interlocking occurs, 
and stream 2 could try to read from a bucket stream 1 is still 
reading into cache. 


So SSSSSSSSSSSSSSSSSSSSSS ooooooo SOoooooooo 


SOOoooQooooooooooSo 


IFBSV_RUP moved os IFBSB_ SNL LFLG to IFB$B_JNLFLG2. Migrate 
FABSB- ni recovery bits in RMSACCESS (to catch both opens and 
creates 


v03-022 KPLO012 Peter Lieberwirth 1-Jul-1983 
Fix bug introduced in V05-020 that caused the PCB address 
to be returned as the status code. 


v03-021 DASO001 David Solomon 22-Jun-1983 


oooo 


V03-028 ywT0150 Jim Tea 01-Feb-1984 
Implement ANSI Ra ° test. 
V03-027 JwT0148 Jim Teague 15-Dec-1983 
Enforce ONLY_RU he SOPENs. 
V03-026 RASO218 Ron Schaefer 5-Dec-1983 
Make node names work as search List elements. | 
v03-025 DASO003 David Solomon 13-Sep-1983 
Set RJBSV_OPEN before call to RMSMAPJNL. 
v03-024 KBT0582 Keith B. Thompson 12-Aug-1983 
Clean up some fwa constants 
v03-023 pASo002 avid Solomon 20-Jul-1983 | 


Oooo 
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COOCOOCOSCOOSOOSOOOOOOCOOSOOSOOSOOOSOSOSCOSOOSOOSOOOOOCOOOOOOOOOOOOOOoOO 
SOOOCOCOCSOOCOOCOSOSOCSOSOSSOSSSSOSOSSOSSSOOVCCOCOSOOCCOCOOOCOCOOOOOOOOOOOoOO 
FP PWAANWI NAILIN NINININININID 2 9 OO MS POCO OOCOCOOCOCOCOOOOOOOOOO 
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If aa ae for RU recovery, use FIBSV_NOLOCK | 
(open regardless) 
| 


v03-020 rupee Peter Lieberwirth 21-Jun-1983 
Don't migrate FAB recovery bits unless we're in recovery. | 
v03-019 pod Peter Lieberwirth 17-Jun-1983 
7 writing AT mapjnl entry until OPEN/CREATE is 
cone ete. 
v03-018 TSK0001 Tamar Krichevsky 12-Jun-1983 
Fix broken branches to journaling routines. 
V03-017 RASO148 Ron Schaefer 26-Apr-1983 
Initial support for extended XABPRO. 
v03-016 LJA0059 Laurie J. Anderson 16-Feb-1983 
sheck for Multi-streaming even if NIL is set in the FAB share 
eld. 
v03-015 KBT0491 Keith B. Thompson 9-F eb-1983 
Checking for ‘'proper’’ sharing is now done in rm$init_sfsb 
v03-014 TMKO001 Todd M. Katz 01-Feb-1983 
Add support for r Recovery Unit Jouraets tne and RU ROLLBACK 
Recovery of ISAM files. Under the following set of conditions 


| 
| 
set the journalling state bit IFB$V_RU_RLK Suithin IFB$B_JNLFLG: 
1. The file is an ISAM file. 

. The file is Recovery Unit Journallable. 

. The file has been opened for exclusive access (no sharing). 
| 
| 
| 
} 
| 
| 


Setting of this bit will enable pseudo record locking. 


v03-013 74 A0054 urie J. Anderson 12-Jan-1983 
Fill im SHR field” ol IFB from Users FAB in rm$creacc_setl 
v03-012 KPLOO11 Peter Lieberwirth 17-Jan-1983 


Migrate FAB bits that indicate file is being opened for 
recovery into the IFB. 


SOOSOSCSSOSOSOSOSSOSOSOOSOSOSOSOSOSOSOSOSOSOSOSOSOOOOOSOSOOSOOSOSOoOSoOO 
GOQOCSOSOSSOSSOSOCOSSOSOSOSOOCOSOOCOOOOOOOOOOOOOOCOoOO 
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a ed dd dd 
OOO WW WW O0009 09 0000 09 09 09 09 09 SI NINN SN SSS DBA DAA A AAD TTT 
DNAUE WN OO DNAU EWN 9 OO NAM EWN $9 OONAUES WN 0 CONIA UE WN OOONOULS Wr 


SOOO OCOCOOCOSOOSOOOOSOOOOOOSOOOSOSOOOOOOOOOOOSCOOOOOOOOOOCOOSoO: 


0 v03-011 suz000! Stephen H. Zalewski 16-Dec-1982 
0 Keep Dleb-sdructared hbk and ebk in different places in 
ifb than we keep the swapped hbk and ebk. 
0 v03-010 ACG0306 Andrew C. Goldstein, 13-Dec-1982 14:55 
bo Remove obsolete file header symbols 
sit v03-009 KBT0412 Keith B. Thompso 30-Nov-1982 
44 Change ifb$w deceit to ifbsl “devbutsiz 
000 V03-008 JWHO103 Jeffrey W. Horn 20-Sep-1982 
000 Move the journaling set-up to RMSSETEBK ‘ 
8 v03-007 KBT0355 Keith 8B. Thompson 10-Sep-1982 
44 Remove all SO sharing code 
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H v03-006 guwoyes Jeffrey W. Horn 31-Aug-1982 
: t in support for recovery unit journals. 
: v03-005 KBT0198 Keith B. Thompson 23-Aug-1982 
0 : Reorganize psects 
5 ; v03-004 xBT0120 Xeith B. Thompson 6-Au 


Remove ref. to set_sifb_adr and fix all of Mi ae 3 
rev. numbers 


V03-003 JwHO002 Jeffre vA 06-Jul-1982 
Add in call to RMSRTVJNL to on journal control bits and 
journal names. 


v03-002 KPLO010 Peter Liebrwirth 25-Jun-1982 
Complete V02-048 by checking for execute-only access 
whether or not UFO is set. Previously, if UFO was not 
set, the check for OER: access was skipped. 


v03-001 JWHO001 ey W. Horn 23-Mar-1982 
ot in call to RMSASSS L to set up journaling on this 


Oe Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ges 


v02-050 KEK0018 E. 3-Feb-1982 
Replace FWAS$C _RNSBUF SI? roe the real total size 
of the concatenated NAME,TYPE, and VER buffer sizes. 
V02-049 pene C Sae 20-Dec-1981 
Allow deferred ithe — shared files. 
v02-048 gPLoge? Peter Lieberwirth 17-Dec-1981 


Provide support for execute only command files | having. ACP 
check rer execute protection in SUPER mode as well as EXE 


SOOCSCSCSOSOOSOSOOOSOSOSOOSSOSOSOSOSSOSOOSOSOOSOSOSOSOSOSOSOOOOSOSOOOOOOOSoOO 
COOGCOOCCOCOCOSOSOSOSOSOSOSSOSSSOSCOoOooooooooCoOoOooooOoOoOoOoOooooOoooO 


Init queue header a 4 Oa a BLB if ghar ine. 
Fix bug so that SFSB is allocated for 512 fix len. 


v02-041 rh 0008 Peter Lieberwirth 15-Jul-1981 
teens an SFSB in all cases, including sequential. 


OFAN OO OONA UE WIN 9 OD NA UNE WIN OOO NAME WN $ O OONOAUE WN OOONAUE WN 0O0 


PUPP EBS BS BB BB EB EWI WII IAI DRIPININPININININIDS 2 PO OO OS SM OOOOOOOCCOCO NO 


PRIPDP INI IPININININININININIPYDIPOPINYINIPINIPYPINYNIPINIPYININPIPYNIPYPININYPININIPIPIPIPIPINPIPINIPINININININI PUNY — 


SOOOOCOCOCSOOSCOSOOSOOSOOSOOOOOOSOOSOOSOOOOOSOOOOSOOOOOOOOOOOOCOOoOO 
SOOCSCSCOCSOOSOSSSSOSOOCOSCOCSCSOSOOSOSOOSOSOSOSOSSOSOSOSOSOSOOSOSOOSCOOOSOOOOOSoO 


: and KERN 

; V02-047 ¢D$0029 C Sae 16-Sep-1981 
3 Altow BIO, BRO with ase. ter rel, isam. lsene’ as pre 040). 
; V02-046 CDS0028 C Sae 14-Sep-1981 
: Clear NORECLK before tpl "heck. 

; v02-045 ¢D$0027 C Saether 6-Sep-1981 
3 Init BLB queue header shen noreclk is cleared. 

: V02-044 CDS0026 C Saethe 4-Sep-1981 
: NORECLK now set by fseth. - clear if locking. 

; v02-043 CDS0025 C Saether 31-Aug-1981 
3 Always set noreclk. 

; V02-042 cp$0024 C Sae 23-Aug-1981 


SoOoQooooooo 


CSOoooooooo 
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0 
0 
0 
00 
00 
00 


v02-040 KPLO0007 Peter Lieoerwirth 28-Apr-1981 
Allocate an SFSB via RMSINIT_SFSB if necessary. 


v02-039 CDS0023 C Saether 24-F eb-81 8:30 
oes fixed length against RSIZ record attribute (ifb$w_(rl) 
nstead of max rec size (ifb$w_mrs’. 


v02-038 CDS0022 C Saether 23-Dec-80 15:10 
Reverse order of attributes on stack so that rewriting 
record attributes occurs before protection changes. 


V02-037 REFORMAT C Saether 30-Jul-80 20:20 


SCOoOOOOOCOOOoOOooooO 
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Include Files: 
; Equated Symbols: 
Own Storage: 


; Macros: 


Se ONPNTWN OR. DOO CUM TN OR. DHO— CUM TFTNOR. DAO CUM TINOR. OD 
PPP. DDDDDDDDDDAOOAAOOAOAAOOOOCOCOCOSCOSOS 
ROO ONION OOO OSI OI OI OI OI OI NI OI OI OI OS OI OI OS OPV V PFD PDP PD PT PTD POD PAD 
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-SBTTL RMSACCESS - PERFORM FCP ACCESS FUNCTION 
++ 


; RMSACCESS - perform file access function 


This routine sets up the access control word of the fib 
from the various user ages sracat ons, builds the 
attribute List to read in the record attributes and 
statistics block, builds the gio parameter list on 
the stack using the filename descriptor, issues 
the gio to the ace fo perform the access 
and finally initializes the ebk and hbk fields of 

e ifab. 


Calling sequence: 
BSBW RMSACCESS 
Input Parameters: 


OOooooooooooo m™™. 


SOCSCCOCOOCOOOCSOOSOSOSOSOSOOSOSOSOOSOSOSOSOOOSOOOSOOSSOOOSOOOS OOOO OoOoo 


SSsosooooooss 


rii impure area address 
ri0 fwa address 

r9 ifab addresss 

r8 fab address 


Implicit Inputs: 


fwaSt_fibbuf (fid & did set as required, remainder zero) 
isp viwrtacc 
ac 


fwa$q_name 
Output Parameters: 


r0 status code 
ri-r7,ap destroyed 


Implicit Outputs: 


ifb$v_accessed set 
the récord attributes area of the ifab is initialized 
the record string is set (fwa$q_rns) over-writing 

the filename string 
ifb$l_ios 
fab$v_ctg set if file contiguous, else cleared 
fab$l"stv set to system error code on failure 


DOCOCSCCOOCOSOSOOSOSOOOOSOSOSOOOSOSOSOSOSOSOOSOOOSOOOSSSO 
DOCOCCOCOCOCOCOCOSOOOOSOOOOOCOOO OOOO OOOOO OOOO OOoO 


oo 


Completion Codes: 


standard rms including suc, fnf, rer, wer, flk, prv, 
and acc. 


CDOOOOCOCOCCOCOOCOCCOOSCOOOCOOOOCOSOOOOOOOOOOOSOOOOOSOOSOSOOOOOOSOOOOOOSSS OU 
PEA QAL AA DAD rr & BB BB EEE WIN NIIWIIIIIPINIPINININININ 3 3 3 = 
NOME WR OODONA UE WIN 0 OD NAME WIN OF OD NAME WN O OO NAME WN OOONOAUE Win 


Be Se Oe Se Oe Oe Be Se Se Ge Se Ge Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Ge Se Ge Se Se Se Sete Ge Ge Ge Ge Ge Ge 


Sooooo 
ooooo 
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6 : Side Effects: 
$ : may have switched to running at ast level. 
if 
7 o 


vou-ool RMSACCESS =P 


all user structures except fab must be reprobed. 


vou-dol 


@ 
=z 
>m 
on 


om 
Wo 


0D 69 ~=3£ 
04 AB 40020000 8F 


06 4B AB 


0 
0 
0 
0 
0 
03 13 00 
FFDD' 4 0 
FFDA* 30 00 
03 50 58 0 
O1FF 1 00 
0468 26 €1 ; 
06 69 3F 58 0 
FFCS* 30 00 
07 50 6&9 00 
0 
0 
0 
05 00 
0 
0 
0 
0 
0 
0 
51 00000000°9F 00 00 
1 E1 00 
26 24 Al 0 
48 AB «95 «(00 
13 . 

E1 
06 4B A8 ; 
0 
01 €1 

06 4B A8 

0 
0 
0 
0 


F 


2» ow 


RET: 
RMACC: 


no 


10$: 


RM FCP ACCESS FUNCTION JonSEP-198¢ 99:59,30 


MSACCESS: 


STSTPT 
BBS 
BBS 
RMSSUC 


S 
RMSSUC 
RSB 
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#DEVS$V_DIR ire thy ate DEV(R9) ,RMACC ; branch if files-oriented 


#FWASV-NODE, (R 


#1FBSV (R9) ,10$ 
#<<FABSM_KFO>! = 


<F ABSM_UFO>!- 

> ,FABSL_FOP (RE) 
NTSSUP_FOP 
NTSACCESS 


DAP 
M_K 


#1FBSV~SQ0, (ROS 
#IFBSV-NSP, (RO) , 30S 
NTSOPEN 

RO,RET 
#1FBSV_NORECLK, (R9) 


Migrate FAB recovery bits to the IFB, 


entitled to do recovery). 


»NTACC ; branch if network function 


show success 
return to caller 


branch if network file access 
disallow kfo and ufo options 
if task-to-task (to prevent 
*$run node::''task=abc'" 
branch if neither bits set 
return to caller with rms$_sup 


; eStablish logical Link 


; branch on failure 
; branch if sqo not apes trten 
; and save bit in ifa 


branch if task-to-task oper. 
open file via remote fal 
branch on failure 

say no record locking needed 
show success 


return to caller 


(don't do so if this process is 


get PCB address 
skip if not a recovery process 


ony bite set? 
branch if not RU recovery 
translate RU to IFB RU_RECVR 
branch if not roll forward 
translate Al to IFB AI_RECVR 
branch if not roll back 


translate BI to IFB BI_RECVR 


| 
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7 4 gi 
7 455 ; Set up for the access. 
fr 
1B 38 7 6 § 30$: BSBw RMSCREACC_SET1 ; perform first part of setups 
C7 5 E pce 2 BLBC RO,RET 3 quit on error 
Ove & 5 ; : 
fA: rr 3; put a user-mode ATR on the List first 
85 01 B80 SFE 226 . MOVW #1,(R5) 3; length of access mode byte 
85 2D 0 BB 44 MOVW #ATRSC ACCESS poet (R5)+ ; access mode attribute 
85 OA Ad E 4 rr MOVAB IFBSB_MODE(R9T, S+ 3 access mode for ACP to read 
FF75° 30 0088 rr BSBW RMSOPEN_XAB + gO process rms open xabs 
B7 50 €9 0088 44 BLBC RO,RET 3 continue on success 
OO8E 448 
it 43 449 ; 
O8E 450 ; now an exec-mode ATR 
QO8E 451; 
it $3 $3¢ 
85 01 B60 OO8E 45 MOVW : 1 byte length 
85 gp BO 0091 454 MOVW AT FS ACCESS MODE, (R5)+ 3; access mode 
85 58 AA QOOO001FC BF C1 oad o32 ADDL3) #508,FQASL_ATR _WORK (R10), (R5)+ ; 1 byte + a EXEC mode 
06 69 1¢ €1 Bare $3f BBC #DEVSV_RND, IFBSL_PRIM_DEV(R9),8$ ; branch if not disk 
QOOOOOOO'EF 16 Bead +23 JSB RMSRTVJNL 3; get journal bits, names 
0275 30 OOA7 461 8$: BSBW RMSCREACC_SET2 3; finish setups 
OOAA 7 
OOAA 46 : 
QOOAA 464 ; set the qio function code and go access the file 
OOAA 465; 
OOAA 466 
50 72 8F 9A Ooae rhe MOVZBL #I0$_ACCESS!IOSM_ACCESS,RO ; function code 
FF4F* 30 Boas $83 BSBW RMSF CPFNC ; do the access 
03 50 fs 0081 471 BLBS RO, RMS$SETHBK 3 continue on RMSFCPFNC success 
0174 1 0084 472 BRwW ERRACCESS : branch on failure 
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RMOACCESS ACCESS/DEACCESS ROUTINES 16-SEP-1984 :09: AX/VMS Macro V04-00 Page 
yore O01 RMS$SE THBK 1e-gE =} 98e 99395:35 RMS.SRCIJRMOACCESS.MAR;2 ’ 
B? 474 -SBTTL RMSSETHBK 
rs 
B7 $78 p++ 
0B7 477; 
pee $28 ; RMSSETHBK = entry for ‘create if'’ that becomes an open 
0B? 480 ; check the file for contiguous and if so set the gta bit in fop, 
0B? 481 ; then pick up highest allocated vbn from the statistics block 
0B7 4 ¢ 3; and copy to ifab, overwriting the hi vbn field of 
0B? 483 : the record attributes. note that the hi-and lo-order words of this vbn 
OB7 484 ; are reversed on disk and hence are read in reverse order. 
bee! 485 ; rearrange to give an understandable longword hi vbn. do same for 
bee ? $ 3 eof vbn. 
O07 cas 3 entry point for ‘create if'’ turned into an open. 
00B7 490; set fop output bits according to file attributes. 
td 491 ; 
087 $36 i-- 
0087 49 
00B7 494 RMSSETHBK:: 
04 O04 EF O0B7 495 EXTZV #IFBSV_ORG,#IFBSS_ORG,- 
51 50 A9 O0BA 496 IFB$B_RFMORG(R9) ,R1 ; get org 
23 A9 8651 90 OOBD 497 MOVB R1,1FB$B_ORGCASE (R9) ;_ into separate ifab byte 
00800200 8F CA 00C1 498 BICL2 #<FABSM (TG! FABSM_CBT!FABSM RCK!FABSM_WCK>,- 
4 AB 00C7 499 FABSL_FOP(R8) ; clear fop output bits 
07 +€1 O0C9 500 BBC #FCHSY_CONTIG,- 
04 44 AA 00cB = 501 FWASW OCHAR(R10),10$ =; branch if file not ctg. 
00¢ 308 SSB #FABSU_CTG+FOP, (RB) ; set the ctg bit 
05 €1 00D 503 10$: BBC #FCHSV_CONTIGB,- 
04 44 AA 0004 504 FWASW_OCHAR(R10) ,20$ ; branch if not ctg best try 
0007-505 SSB #FABSU_CBT+FOP, (RB) > set ctg best try in fop 
03 €1 00DB 506 208: BBC #F CHSV~READCHECK, - 
04 44 AA 00DD 507 FWASW_OCHAR(R10) ,30$ ; branch if no read checking 
00EO0 508 SSB #FABSO_RCK+FOP, (RB) ; set fop rck bit 
06 €1 O0&4 509 308: BBC #FCHSV-WRITCHECK,- 
04 44 AA QOE6 510 FWASW_OCHAR(R10) ,40$ ; branch if no write checking 
4 $3) in SSB #FABSO_WCK+FOP, (R8) 3; set fop wek bit 
54 AQ O1AC CA D0 ODED 218 MOVL FWASL_HBK(R10), IFBSL_HBK_DISK(R9) 3: move unswapped hbk to ifb 
70 A9 ss 54 AD 10s te a1 ROTL #16, IFBSL_HBK_DISK(R9), IFBSL_HBK(R9) ; swap words of hbk 
09 66 10 €1 QOF9 516 BBC #FIBSV_EXECUTE,(R6),50$ ; branch if not execute 
01 E1 BRED aif BBC #F IBSV_ALT_GRANTED,- 
04 38 Ab OFF 518 FIBSL STATOS(R6).50$ — ; branch if no read access _ 
16 AB 02 88 biog 235 508 BISB2 M#FABSA_GET,FABSB_FAC(R8); flag read access also permitted 
FEF7* 30 0106 331 BSBw RMSOPEN_XAB1 ; finish up xab processing 


wens 


74 A9 =—58 AD 


00A0 C9 2 
OOA0 C 


em ee ee a a a a et od tb = wd 8 8 2 = = = = ot = ss = 2 2 os SS mum 


WWIWAAI AAI WWIII IPIPININININININIDD 2 2 | | “DODO OCOCCOCDOCOOODVDOOOOOOOOOOCOCOOOOOCOOO @aY 


DN SDD OOWMOSOSS OOOOOOOOOOODOOODOOOOOOOODOOOO0OO0OO AM 


“P>r>rrrrworn 


ACCESS 


MEN CO OONOA UE WIN SO OD NAME WIN CO OD NOAOUE WN 0 ODNOUNEWWN OW ONOUS 


NNN NN NIAAA AA AAAA AMMA BEER RRR RE 


DUDVWDVLV LV LVDULVLPU DVL VLTLULVLVUIUSUS USUI USUI SUSUSUSUS SUSI USSSA SITIO 
o~ 
owo° 


ROUTINES 


-SBTTL RMSSETEBK 


+ 
+ 


RMSSETEBK = check for shared access 


set up journaling on the file 
if this is not a 


: is performed, if nee 
: inputs: 
: rii impure area address 
; r10 fwa address 
; r9 ifab eaaress 
; r8 fab address 
: outputs: 
3 r0 - status 
: rl=r?, ap - destroyed 
: ifb$v_accessed - 
; ifb$l—ebk = 
RMSSETEBK:: 
SSB #IFBSV_ACCESSED, (R9) 


Deallocate the ATR work area -- we're 


PUSHR #°MERO R1,R2,R3,R4,R5> 
MOVL  FWASL_ATR’WORK(R10) ,R4 
BSBW RMSRETIPA 

CLRL = FWASL ATR _WORK(R10) 
POPR #*M<RO,R17R2,R3,R4,R5> 
ROTL 


: Make sure user doesn't 


eet PR ROM ST aE OTE 


Page 


sequent tat file, the shared ifab processing 
de 


& 
filled with swapped ebk words form disk 


; declare file accessed 
through with it now 


; Save regs 

: Pass address of seveten page 
; Return scratch 

3 Indicate no wor 
; Restore regs 


“Sree now 


#16, 1FBSL_EBK_DISK(R9), IFBSL_EBK(R9) ; swap words of ebk 


intend to write access an ANSI 


: is there a non-0 b 
if 0, ship next es Peres 
if not a tape, error 
if no seits access, ye. re cool 
write access is ok with B10 
otherwise no wits. access 
so cease and desist 


; buffer offset (b. 0.) tape unless B10 is set 
TSTW jfBSu. BUFFER_OFFSET(R9) 
BEQLU 
BBC #DEV$V_SQD fest Lf RIB DEV(R9) 48: 
BBC #1tBSV~ “WRTACC ; 
BBS FABSV~BI0, hsp” FACERB), 5$ ; 
4$: 4 3 


; set up journaling on the file 


BSM 
$B_JNLFLGT 


NEVER RY IFBS$B_JNLFLG(R9) 
ROS 


: Ignoring NEVER_RU, is 
: ant rhe Bis. Bit set? 


i 


entry point to swap the words of eof block and set ifab bookeeping bit saying fil 


EX. 
FAI 
FAL 
FAI 
F Al 
FAL 
F Al 
FAL 
FAL 
FAl 
FAI 
FAI 
F Al 
FAI 
FAI 
FAI 
FAI 
FAl 
FAI 
FAI 
FAI 
FAI 
FAI 
FAI 
FA 
FAI 
FA 
FAI 
FA 
FA 
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D 
B 
4 
14 
4 
4 
4 
6 
4 
6 
6 
6 
6 
6 
6 
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9 
9 
9 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
B 
B 
B 
8 
B 
8 
B 
B 
B 
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WAN 


B 10 


BEQL SHRCHK $ 


; Enforce RU bit settings, specifically ONLY_RU 


1ESEp=-198e 29:52:30 ERMS\SACIRMORCLESS MAR; 2 


branch if not 


BITB arnt eter mirc ate { My i- ; RU bits s 


108: 


20$: 


et? 
ot, go on with jnl stuff 


BEQL i If_n 

MOVL @4CTLSGL_RUF ,R1 3; RUF loaded? 

BEQL ; No RUF, verify ONLY_RU clear 

BBS #RUCBSV_ACTIVE ,RUCBSB_CTRL(R1),20$ ; In RU? Then go set up 

BITB #1FBSM_ONLY_RU,- ; If ONLY_RU clear (RU 
FB$B_JNLFLG(R9) ; must be set), and not 

BEQL 0$ ; in RU then that's ok 

eae NRU ; However, if ONLY_RU set and not in RU: error 

JSB RMSASSJNL 3; set up journaling 

BLBC RO, RETURN ; get out on error 

TSTB =‘ IFBSB_JNLFLG(R9) : ASSJNL can clear this 

BEQL SHRCHR : branch if now clear 


Turn off AT for this MAPJNL call so the AT info 
during the operation and flushed later. 


MOVL IFBS$L_RJB(R9) RI 
MOVW RJBSWTFLAGS(RI),-(SP) 

CSB #RJBSU_AT,RUBSW.FLAGS(R1) 
BISW2 #RJBSM~OPEN,RJBSW_FLAGS(R1) 
JSB RMSMAPINL 


MSM 
MOVL IFBSL_RJB(R9) ,R1 
MOVW ($P)+,RJBSW_FLAGS(R1) 


Pete Se Ge Ge Be te 


BLBC = RO 

BBC #1 

JSB RM 7 

BLBC RO, RETURN : 


SHRCHK: BBC #1FBSV_NORECLK, (R9) ,CHKSHR ; 


EXIT: CMPB #IFBSC_IDX, IFBSB_ORGCASE(R9) : 
BNEQ RETURN : 

BBC #1FBSV_RU, 1FBS$B_JNLFLG(R9) ,- 3 

RETURN 3 

BITB #F ABSM_SHRGET!F ABSM_SHRPUT- 3 
'FABSM_SHRDEL!F ABSM_SHRUPD- 3 

'FABSM_MSE ,F AB$B_SHR(R8) : 

BNEQ RETURN : 


can be .illed in 


get RJB address 
Save current fiags 
turn off AT for now 
set flag that this is an open 
write out mapping entries 
get RJB address ogetn 
restore original flags 
out on error 


RETURN : get 
FB$V_RUP, IFB$B_JNLFLG2(R9),SHRCHK ; branch if not in RU 
SMAPINL_RU ; write out RU mapping entry 


get out on error 
not set, then check sharing 


; If this is a Recovery Unit Journalable ISAM file which is Berne 
; opened for exclusive access then set the state bit IFBSV_RU_RLK to 
; enable pseudo record locking. 


return if this is not an 
access of an index file 


return if this ISAM file is 
not Recovery Unit journallable 


return if any form of sharing 
is enabled (inter-process or 
inter-stream) - record locking 
will already be enabled 
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RMOACCESS ACCESS/DEACCESS ROUTINES 16-SEP-1984 AX/VMS Macro V04-00 Page 15 | 
yon Oo RMSSETEBK 14-SEP-1984 t 93: 933 a RMS .SRCIJRMOACCESS.MAR; 2 . (7) | 
18 638 SSB #IFBSV_RU_RLK,IFBSB_JNLFLG2(R9) ; permit pseudo record locking | 
05 1f8 640 RETURN: RSB 
106 = 641 
106 3664 
106 6435 SETNORECLK: 
&3 69 33 #€3 138 ere BBCS WIFBSV_NORECLK,(R9),EXIT ; set NORECLK & exit (always clear) 
1CA 646 CHKSHR: | 
1CA 646 
1CA 648 
1CA 649 ; check whether sharing is required 
1CA 650 ; 
O1CA 651 
05 17 A8 O05 €1 OQICA 026 BBC #FABSV_NIL,FABS$B_SHR(RB) ,10$ A if nil Ay ~h check MSE 
F2 17 AB OGStsé€E* Bice 62? BBC #F ABSV_MSE ,FABSB_ SHR CRB) , SETNORECLK o locking required 
B1De O22 ASSUME FABS$C_SEQ EQ 0 
23 A9 «695 «6©601D4)=—s« 657 108: TSTB I1FBSB_ORGCASE (R9) 3; is this sequential 9rg? 
1B «O13 ate $28 BEQL CHKSEGSHR 3; special checks for 512 fix len recs. 
0109 660 SHARE: 
FE24" 30 01D9 661 BSBW RMSINIT_SFSB : get perent lock for record and 
O1DC 366 ; bucket locks. 
0— 50 €9 OQO1DC 66 BLBC RO,10$ ; exit on error. 
5A DD ODF 664 PUSHL R10 ; Save FWA address. 
SA 59 bP O1E1 665 MOVL R9,R10 ; ALBLB wants ifab in r10. 
FE19" 30 O1E4 666 BSBW RMS$ALBLB ; allocate a BLB to go with BDB (FWA). 
5A BEDO OIE7 667 POPL ; Restore FWA address. 
CO 50 €8 OIEA 668 BLBS RO,EXIT 3; finish up 
05 O1ED 669 10$: RSB 
O1EE 670 
HH 671 UPIERR: RMSERR UPI 
0S OTF ore RSB 
O1F4 67 
O1F4 674 CHKSEQSHR: 
O1F4 675 
O1F4 676 : ‘ 
aire err 3 want sharing on sequential file - make a few more checks 
CD 17 AB «2060 =6CEO «COIFS&)=—s 679 BBS #F ABSV_UPI,FABSB_SHR(R8) ,SETNORECLK ; Branch if UPI. 
28 69 1C¢ E1 O1F9 680 BBC #DEVSV_ TRND » IFBSL— PRIM DEV(R9), SHRERR ; Magtape?!? No rs 
16 A8 60 8F 93 b3F8 oi BITB at ARS. B10'FABSM_ -BRO. FABSB_ FAC(R (R8) : any form of block i/o? 
EA 12 Og 0¢ ors BNEQ UPIERR ; UPI must be” set for block i/o. | 
0 be one ASSUME FABS$C_SEQ EQ 0 | 
01 SOAd 91 0 Be on6 CMPB IFBS$B_RFMORG(R9) , #F ABSC FIX ; only for fixed Length recs | 
B 12 8 68 BNEQ SHRER 3 neg sorry 
0200 8F 52 A9 Bi 8 OA 688 CMPW IFBSW_LRL(R9) #512 Gyre” records only 
13° 12 0210 689 BNEQ  SHRER ; tt can't share 
5E AD 01 90 ! $39 MOVB #1, [FBSB_BKS(R9) bucket size is one 
19 036 ASSUME <IFBSC_SEQ + 1> EQ aed Sak 
| 
23 A9 96 $538 694 INCB IF BSB_ORGCASE (R9) 3; presto - now you're relative 


ee ee ee - co 
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RMOACCESS ACCESS/DEACCESS ROUTINES 16-SEP-1 AX/VMS Macro V04-00 Page 
viva AMS SE TEBE 18: =-SEP=19 3b 99: 933 § FRMS. SRCIJRMOACCESS.MAR;2 ° 
0080 ¢9 91 »0 19 695 MOVL #1, 1FBSL_DVBN(RI) no prologue for seq file 
1 636 5SB alfasv *SEQF IL, (RO) S note this 18 really seq file 
FFB4) = 331 69 BRW SHA RE ; finish shared open 
238 SHRERR: 
$? RMSERR SHR 3; can't do that 
05 A 00 RSB 3 get back 
SS eee 
8 708 | 
B 704 ; handle access failure 
; A ; 
8 p09 
0228 #708 ERRACCESS: 
0228 709 RMSERR ACC,R1 ; default error code 
FOCD' 31 02 : 710 BRW RMSMAPERR 3 gO map error code to rms 
023 711 3: and return to caller 
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-SBTTL RMSCREACC_SET1 


3 AX/VMS Macro V04-00 Page 
RMS .SRCIRMOACCESS.MAR;2 


RMSCREACC_SET1 = access, protection, datacheck options fib setup 


this subroutine initializes the access control word of the fib from 
the various fop options, sets the retrieval window size, and initializes 
r5 to address at which to build « files attributes List 


inputs: 
‘ r10 


r9 
r8 


outputs: 
r 


, 
r0 


RMSCREACC_SET1:: 
MOVAB 


fwa address 
ifab address 
fab address 


fib address 


address for next entry to be added to attribute's List 


success/fail status 


@F WASQ_f 1B44{210) ,R6 


initialize the access control word. it i 


$55: 


$ 
$: 


ASSUME 
BBC 
SSB 


FIBSL_ACCTL EQ 
#IFBSU_WRTACC, ( 
#FIBSV-WRITE,(R 


; get fib address 


Ss zero; set desired bits. 


i) 
R9),5$ ; branch if read access only 
6) ; set write access bit 


set sharing as desired and determine whether record locking required. 


record locking will be required if there is any form of sharing (inter 
or intra process) and there can be any writers of the file. 


record locking required - unless upi set. 


FABSB_SHR(R8) ,RO 
RO, 1FB$B_SHR(R9) 
#FABSV_MSE,RO,10 
#IFBSVMSE, (RO) 
#F ABSV-NIL 


owe 


0$ 
#F IBSM_NOWRITE, (R6) 


#IFBSV_WRTACC,(R9),25$ 
#F ABSVGET,RO,3 


#F IBSV_NOREAD, ( 
#FABSV-MSE,RO,3 


0$ 
R6) 
5$ 


et shr field 
ave share field in IFB 


; branch if no multi-streams 
3 set mse bit 
% R : b 
#F ABSA_PUT |FABSM_UPD!FABSM. 


ranch if no sharing 
DEL,RO ; any form of write sharing? 
ranch if 


es 

disallow other writers 

at most ‘‘get’’ sharing 

branch if not write accessed 
branch if allowing other readers 
default write accessor to nil 
disallow other readers 

branch if no multi streams 


require sharers to specify 


~~ 


RMOACCESS ACCESS/DEACCESS ROUTINES 16-SEP-1984 00:09: AX/VMS Macro Vv04-00 Page 18 RMO 
youn O01 RM EREACE SET? 19-$66= 1 38 99:93:35 RMS.SRCIRMOACCESS.MAR;Z . (8) | Tab 
HR ; eas Locking. | 
B 72 30S: a) #IFBSV_NORECLK, (R9) 3 clear no locking flag. 
0098 C9 098 C9 «ODE oF ng MOVAL IFBSL_BLBFLNK(R9), IFBSL_BLBFLNK(R9) ; Init Bue queue header. 
009C C9 ‘ ? 43 6 774 MOVAL Mts BLBFLNK(R9), IFBSL_BLBBLNK(R9) ; Init BLB queue header. 
04 E 7D) 3=—775 BBS #FABST_UPI,RO,35$ ; 
b> ag SSB #F IBSV_RMSLOCK, (R6) ; set fib bit for locking 
778 ; | 
: 118 3; set deferred write ifab flag as required | 
781 © 
0468 25 €1 0 5 i 35$: BBC #FABSV_DFW+FOP,(R8),40$ ; branch if deferred write not 
3 specifie 
8 9 784 SSB #IFBSV_DFW, (RI) ; set deferred write flag 
eis 
8 gp 789 ; set read checking, write checking, and seq. operations only flags | 
028D 789 ° 
07 68 29 4 028D 790 40S: BBC #FABSV_WCK+FOP,(R8),50$ ; branch if no write-checking | 
66 20 88 029 791 B1sB2 #iaF IBSV_WRITECK,(R6) _ ; enable write-checkin 
44 AA 10 88 0294 79 BISB2 #laFCHSV-WRITCHECK,FWASW.UCHAR(R10) ; & give file wck attribute | 
08 68 37 €1 0298 793 50S BBC #FABSV_RCK+FOP, (R85 ,60$ 3 branch if no read-checking 
029C 794 SSB #F IBSV_READCK, (R6) 3; enable feeemeneching 
44 AA 08 88 O2A0 795 BISB2 #laFrCHSv READCHECK FWASW_UCHAR(R10) ; & give file rck attribute | 
08 68 26 £E1 O2A4 796 608: BBC #FABSV_SQO+FOP, (RB) ,70$ 3; branch if + not specified 
OSae 797 SSB #F IBSV_SEQONLY, (R6) 3 set sequential only bit 
O2AC 798 SSB #1FBSV~SQ0, (ROS : and save bit in ifab 
0280 799 
$588 800 ; 
St 80¢ ; if magtape, check and set positioning flags (rwo, pos, nef) 
280 803 | 
0—E 69 OS €1 $580 Boe 708: BBC #DEV$V_SQD, IFBSL_PRIM_DEV(R9) ,80$ ; branch if not magtape 
0288 B06 SSB #FIBSV_PRSRV_ATR,(R6) ; read rat bits as stored 
2B 07 ; 
osee 808 ; the rms fop bits for magtape positioning are in the same |. 
028 09 ; relative position to each other as the Kerrespending fib bits 
8 B 10 ; and additionally have the same polarity - use an extract 
B 11 ; and insert field to set them appropriately ’ 
ps8 \¢ : (note: the wck bit is imbedded - so it gets set or cleared again) 
B 14° 
B 815 ASSUME <FABSV_RWO+1> EQ FABSV_POS 
8 16 ASSUME <FABSV~POS+1> EQ FABSV_WCK 
028 17 ASSUME <FABSV_WCK+1> EQ FABSV_NEF 
B 18 ASSUME <FIBSV_REWIND+1> EQ FIBSV_CURPOS 
B 1 ASSUME <FfIBSV_CURP > EQ FIBSV_WRITECK 
B 0 ASSUME <FIBSV-WRITECK+1> EQ FIBS$V_UPDATE | 
50 68 04 ef EF B 1 EXTZV #FABSV-RWO+FOP,44,(R8),RO; get the fop bits 
66 04 03 50 FO 8 : INSV RO,#FIBSV_REWIND,#4, (RO) 
C 4; 
: 2 if this is ufo set fib$v_notrunc unless trn bit set in fac 


mss 


12 16 AB 07 
OA a3 


¢ 
22 a9 = 02 


01 
3C A6 


00 

00A1 ‘? 
00100000 8F 
00000401 8F 
66 


03 A6- 1C AB 
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WHS SYP} YP ONO DOO OOOOAA SM POW LS TH HHH HOH 
WOONIA UE WIN OOO NA UE WN 0 OD NAU EWN 0 OONAUE WN 0 OD NAU EWN OOOnN 
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DOOCOCOCOCOCOOCOOOCOSCOCCOOOOVOCOOCO COSCO OOCOCOOOOOOOOOOOOoOO MN 
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IDS DSS OS DS DS DS DDS TTT BS SS 


—o 
on 


0.00.09 09 09 0D 09 CD CD 0D 09 OD 09 CD C9 CD CD C9 CD G9 CD CD GD CD GD CD CD CD CD CD CD CD CD CD CD CD C9 CD Cd Cd C900 C9 C9 G9 CD COON CD. CD CD CDCD 


COoOoCooooooo 
NWWAAAAAII 
2 S$ OOOO 
NOH LSS FP NUVI TH 


SQN 


ovcovorcom 
SSSFSSssq No 


~$£5-1986 92:90:30 LAMSLSRCIRMOACCESS.MaR:2 "O° 


BBC #FABSV_UFO*FOP,(R8),90$ ; branch if not ufo 
BBS #FABSV-TRNFABSB_FAC(RB),90$ ; branch if trn set 
SSB #F IBSV~NOTRUNC, (R6) ; don’t allow truncates 


check for execute protection 


90$: BBC #FABSV_EXE,FABSB_FAC(R8),100$ ; branch if not execute access 
CMPB 1FB$B_MODE (RI) ,= H 
#PsiSC_SUPER ; super (or exec or kernel) mode? 
BGTR 10 : branch if not (ignore) 
BISB #FABSM_GET, IFBSB_FAC(R9); flag read access also permitted 
SSB #F IBSV-EXECUTE, (R6) ; have acp check on execute access 
MOVL #ARMSM_READ,- ; also ask if read access permitted 


FIBSL_ALT_ACCESS(R6) 


: Set override exclusive access if opening a file for RU recovery. 


100$: BBC #1FBSV_RU_RECVR,- ; skip if not RU recovery. 
IFGSS RECURFLESCAD) -= : 
BISL2 #FIBSM_NOLOCK,- 3 set nolock (access regardless) flag. 
FIBSL_ACCTL (RO) 
BICL2 #FIBSA_NOREAD!F IBSM_NOWRITE,- 
FIBSL_ACCTL(R6) 3 noread/nowrite must be clear. 


: set the retrieval window size 


SETRTV: MOVB FABSB_RTV(R8) ,F IBSB_WSIZE(R6) 


the fib is now set up. 


: set the attribute conired list address into r5 


MOVL a ile mamas dads ; Do we need one? 


BNEQ :; If not, don't ask for one 

PUSHR #*M<R1,R2,R3> 3; Save regs 

BSBW RMSGETIPAG ; Grab a scratch page 

BLBC ° :; Die if none available 

MOVL R3,FWASL_ATR_WORK(R10) ; Save scratch page address 

MOVL R3,R5 3 and put it in R5 

POPR #*M<R1,R2,R3> ; Restore regs : 
10$: MOVL #PSL$C_EXEC, 508(R5) ; Keep exec mode byte in last lword 
205 ae #1,R0 ; set success 
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RMS. SRCIRMOACCESS .MAR; 2 (9) | 


o 
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RMSCREACC_SET2 = set up stat block, fall thru to creac_3 
subroutine to finish fcp access & create setups started by rm$creacc_set! 


if this is for an access it puts an entry on the attributes List 
to cause the statistics block to be read 


it then adds attribute list entries for rms record attributes, 

user characteristics, and, if device is magtape, block size. 

it then ends the attributes List and builds p6 thru p2 of the fcp's 
qio parameter block and returns. 


inputs: 
ri0 fwa address 
r5 attributes List next entry address 


OOOOO00O0O0 O00 OOO CoC9 0009 C0 000000 
"OOO AULA OOOO wn 


outputs 
06 thru p2 on stack 
r0, r5 destroyed 


entry point to finish fcp access setups 


oO 

oO 

co 
q 
@ 


RMSCREACC_SET2:: 
MOVW = -#FWASS _STATBLK, (R5)+ 3 specify # of bytes wanted 
MOVW #ATRSC_STATBLK gihore 3; read statistics block 


85 MOVAB FWAST_STATBLK(R R5)+ ; address for read 


If magtape. then inquire about buffer offset -- otherwise proceed to 
CREACC_3. Note that this inquiry is not made for $CREATE. 


PIPIPOPOPONPIPYINPYR) 2 tt OOO 
PPPPP PPV YN TTT HHH HTT Orn 


BBC #OEVSV_SQD, IFBSL_PRIM_DEV(R9) ,- 
RMSCREACC SET 


9 
0 
; 
4 
5 
6 
7 
8 
9 
0 
1 magtape? 
¢ MOVW #ATRSS “BUFFER “RFP SET. (R238 
4 

5 

6 

7 

8 

9 

0 

4 

: 


size = b.o. field (2) 
buffer offset item code 
directly to/from ifab 


80 
E 


MOVW  #ATRSCBUFFER-OFFSET, (R5)+ 
MOVAW IFB$W_BUFFER TOFESETCRO), (R5)+ 


85 
++ 
RMSCREACC_SET3 - set up for record attributes and user characteristics 

entry point to finish create function setup without getting a statistics block 


put in entries to cause record attributes and user characteristics 
to be read/written 


AWNWAAAAAIAIAAA AIAN AIA NIA AANA IAIN AAAI ANIA IAAI WIAA AAAI AI AAAI AANA oN 


WOODOOOOOOOOOOOOOTS DOWOOOOOOOOODO 
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MSCREACC_SET3:: 
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RMOACCESS ACCESS/DEACCESS ROUTINES 66-SEP-1984 9: AX/VMS Macro V04-00 Page 21 
reel RM EREACE SETS 4-S ety 99: 3 3 RMS .SRCIRMOACCESS.MAR;2 ’ (9). 
50 8ED 9 338 POPL . save return pc | 
; 146 ©6=«Co#B C MOV eta pHAcne- ioe. RFMORG>, (RSS+ 3; # bytes rec attr to xfer 
04 B80 O33F 940 MOVW — AATRSC RECATIR, (RS) + ; get rms record attributes | 
85 SO Ad D 4 4) MOVAL IFBS gf MORG(R9) , (R5)+ : Ser attr's directly to/from ifab | 
g 8% 8 & ts MOVW = #ATRSS UCHAR. (ROS ; size of user characteristics 
3 4 4 4 MOVW #ATRSC_UCHAR, (R5)+ 3 specify read/write of 
8s 44 AA i 4¢ 44 MOVAW FWASW OCHAR (AIO) . (R5)+ addr to read/write “ 
A 69 83 E 945 BBC #DEV$T_Sa rosy Pain DEV(R9) 58; branch if not magt 
2 2 8 4 946 MOVW #ATRSS~BLOCKSIZE;(R5) specify blocksize size (2) | 
8 i: 8 7 94 MOVW #ATRSC-BLOCKSIZE,(R5)+ : specify as hgh of blksiz 
85 48 DE A 238 MOVAL LPB SL. BEVBUFSIZ(R9),(R5)+ 3; xfer directly to/from ifab 
65 04 2 TH 5$: CLRL 3; flag end of attribute List 
6 951 ; 
? 326 : j start building qio argument List on stack 
6 954 
00 «OD 6 955 PUSHL #0 : pg 
58 AA DD 6 328 PUSHL FWASL_ATR_WORK(R19) ; p> = attribute list address 
0188 CA 7F 6 957 P4_P2: PUSHAQ FWA$Q_RNSTR10) ; p4 = resultant name otring descriptor 
0170 CA OF 0369 958 PUSHAL FWASQ_NAME (R10) ; p3 = _uetress of Long we 
036D 959 ceive resultan string Length 
00000 ¢ 8F dd 0 $8 960 MOVL #FWASS ers +7 5 Site TPE BUF sFuASS VERBUF ,- 
0188 ¢ 0 961 FWASQ len ength of rns buffer 
018C CA 0486 CA 9E 0376 366 MOVAB FUAST “NAMEBUF (R10), FWASQ. -RNS*4(R10) ; overla " moat filename 
037D 96 : with resultant string 
0170 CA 7F 0370 964 PUSHAQ FWASQ_NAME(R10) ; pe = filename string 
17 0381 965 JMP (RO) 3; return to caller 
038 208 
oes 967 ;++ 
bas 208 ; RMSFCP_P4_P2 - push p4 thru p2 onto stack 
038 970 ; entry point to push p4 through p2 onto stack for fcp argument List 
ose 44 : build for the $erase function (delete file) 
0383973 
O353 974 RMSFCP_P4 P2:: 
01 BA 03 975 POPR #°M<RO> 3 save return pc 
DE 11 0385 976 BRB P4_P2 ; go do it 
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OUTINES 16-SEP-1984 00:09: AX/VMS Macro V04-00 Page 

FORM FCP DEACCESS FUNCT 14-SEP-1984 99:95:35 YAMS SRCIRMOACCESS MAR: 2 . (3%) 
-SBTTL RMSDEACCESS = PERFORM FCP DEACCESS FUNCTION 

++ 


RMSDEACCESS - perform file deaccess function 
This routine builds an attribute List to cause the record 
attributes in the ifab to be rewritten to the file 
header, if the file was write accessed, and 
calls rm$fcpfnc to perform the deaccess. 
Calling sequence: 

BSBW RMSDEACCESS 


Input Parameters: 


rii impure area address 
r9 ifab address 
r8 fab address 
Implicit Inputs: 
ifb$l_chnl 
outputs: 
r0 status code 
ri-r6,ap destroyed 


Implicit Outputs: 

ifb$l_ios 
Completion Codes: 

standard rms, in particular, suc, dac, fno. 
Side Effects: 

on return rms may be running at ast level 


requiring a reprobe of any user structures except 
the fab. 


K 10 


RMOACCESS ACCES OUTINES 16-SEP-1984 00:09: AX/VMS M v04-00 P 3 
vou-O01 RMSDE FORM FCP DEACCESS FUNCT 1938-982 99:93:38 RMS. SRCIRMOACCESS.MAR; 2 We (32) 


AP od 


: xab processing arguments for close 


CLS_XAB_ARGS: 
~""\BYTE XABSC_RDT,XABSC_RDTLEN, XBC$C_CLSRDT ; handle rdt xab 
“BYTE XABSC “PRO, XABSC_PROLEN.V ;XBCS$C_CLSPRO ; handle pro xab 


+ 
” 


ASSUME 


00000007 


byte offset to flags byte 
000000C0 


BKP3 =< ; 
NETMASK = <1@<IFBSV_DAP-56>> ! <1a<IFBSV_NSP-56>> ; network access-type flags 


perform network deaccess function 
NTDAC: 


oA 69 7 E5 V_DAP_OPEN,(R9),10$ ; branch if close not necessary 


#IFBS 
668 0 E0 BBS #IMPSV~IORONDOWN, (R11),10$ ; branch if i/o rundown in progress 
C67" 30 NTSCLOSE : 


3 
3 
é 3 BSBW ; =. close it there 
11 50 9 ; BLBC R : 
FC61" 30 10$:  BSBW NT$DEACCESS : destroy logical Link with partner 
07 Ao «6CCO BFA ; BICB2 #NETMASK,BKP3(R9) ; clear network access-type flags 
07 50 9 BLBC R ; branch on failure 
Fc56" 30 3A BSBW = NTSNWA_FREE : discard nwa 
RMSSUC 3; show success 
5 03 0$: $B 3 exit to caller 
00A8 1 O3A 0$: BRW ERRDAC 3; branch aid 


+ 
fa 


entry point for rm$deaccess 


RMSDEACCESS: : 
STSTPT DEACCES 

BBS #DEVSV_NET, IFBSL_PRIM_DEV(R9) .NTDAC ; br if network device 

RMSSUC SUC,R6 ; 


Ne 


SowwwwwwOmw 


D3 69 OD €0 


NAMEN OS ODNA UNE WIN 9 OO NA UE WIN) O OO NAME WIN O OONOUES WN "OOONOUS UM 


SOOOOOCOOCOOCOOOCOO OOOO OCOCOOCOCOCCOCOCO COCO OCOCOOOCOCOOOOOOOOOOOoOOoOO FU 


oe 8; 3; indicate success 
00 DD ‘ 7 PUSHL #0 3; signal end of attribute List 
5C C4 AF 3 C 7 MOVAB CLS_XAB_ARGS,AP 3; arg list addr for rm$xab_scan 
FC39° 3 C4 7 BSBW RMSZAB_SCAN 3 process xab chain 
56 50 00 f 4 MOVL RO,R6 3 Save status 
‘A : build attribute List on stack to rewrite record attributes 
CA 1080 ° 


ranch on failure 
| 
| 
| 
j 
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RMOACCESS ACCES ACCESS ROUTINES 16-SEP-1984 709: AX/VMS Macro v04-00 Page 24 | 
Vos oot RASDE SS = PERFORM FCP DEACCESS FUNCT aaa 99: 3:33 RMS ..SRCIRMOACCESS.MAR; 2 ° (33) 
1A 69 E1 BBC #IFBSV_WRTACC,(R9),10$ |; branch if not write accessed 
06 69 Hy E1 BBC #IFBSV_SEQFIL,(R9),5$  ; skip next few Lines if really rel 
ASSUME <IFBSC"SEQ + {> €Q IFBSC‘R 
3 a9 97 DECB IFB$B_ORGCASE(R9) ; turn back into sequential file 
EA9 94 $$ CLRB IFBSB_BKS(R9) 3 make sure this clear also 
50 ADO ; PUSHAL IFBSB_RFMORG(R9) : write attributes from ifab 
00040016 8&F DD PUSHL #<ATRSC RECATTRA16>+<IFB$C FHAEND=-1FB$B_R°MORG> 


3; length & record attriubtes code 


put org back into rfmorg byte 


50 A9 040 C0423 ADF INSV IFBSB_ORGCASE(R9) ,MIFBSV_ORG,#IFBSS_ORG, IFBSB_RFMORG(R9) 


allocate a fib to handle various options 


52 40 8F 9A 
FCi1" 30 


51 oD 
7E 40 8F 9A 


10$: MOVZBL #FIBSC_LENGTH,R2 
BSBW RMS$GETSPC1 


; addr of fib 


: build fib descriptor on stack 
: and Length of fib 


PUSHL §R1 
MOVZBL #FIBSC_LENGTH,-(SP) 


handle ‘'tef'’ option (truncate at end of file) if this is a write-accessed 


Sete te te 


NWS SS OMMIUVIUMIUIUIU — “FF “1 > OO CD 0D 000000 9 I OOUITUITOM » mr 


disk file. 
23 A995 TSTB IF BSB_ORGCASE(R9) ; check for seg file 
26 S12 BNEQ 20$ ; don't do it if not seq 
78 AD sO TSTL gt GOl SF 58 PIRI) ; check for shared file 
4 is BNEQ 0$ ; bypass if shared file 
OC 69 6 6€«€E BBS #IFBSV_TEF,(R9),15$ ; branch if auto extend set flag 
19 68 3C €1 BBC #FABSV_TEF+FOP,(R8) ,20$ ; branch if option not speced 
1569 iC €1 BBC #DEVSV-RND, IFBSL_PRIM DEV(R9),208 ; or if not disk 
noe. we BBC #IFBSV_WRTACC, (RI) ,20$ ; or if not write accessed 


ASSUME FIBSV_TRUNC GE 8 


#<FIBSM_TRUNC @-8>,FIBSW_EXCTL+1(R1) ; ask for truncate 
MOVL IFBSL EBK (RD) .FIBSL_EXVEACR!) ; truncate at eof bl 


= 
w 
Sad 
wo 
_ 
4] 
o 
™~m 


1 0 
1C Al 74 ‘ oc 
5C TSTW FBSW_FF any bytes used this block? 


0 ; branch if none 
INCL FIBSL_EXVBN(R1) ; yes - don't truncate block 


> check for magtape rewind 


208: BBC #DEVSV_SQD, IFBSL_PRIM_DEV(R9) ,40$ ; branch if not magtape 
BBC #IFBSV~RWC, (RO) 208 : branch if not speced 


B2 #FIBSMTREWIND,FIBSL_ACCTL(R1) ; cause rewind to happen 


PREPRESS EF FWA WNW WWW AAAI AAA AAA OOO 


ea yt atte ae pepe tt t+ pat TH HHH HHH HMMMMMmmMmmMmmmmmmmmmmoCOOOUVIMAO ovo 


DBDWDoOLOOOCOCCOCWMOwn nT 
NAME ADR OS OO NAME WIN OS OD NAMES WIN 9 OO NAME WW 0 OD NAME WN" QOONOULFWN— UH 


a a i ka ak a ak atk tk a at st st ts sb 4 a 4 ss > — 2s 4) 4 2 a ts ts 


WAIAIAIAIAIAIGAPPONYININININPININID 9 9 9 PP? MOOOCOOCOCOOOCOCOOC OOOO O0OO0OOOMWMO@cccecpcD 


SOOOOOCSOSOOSOOSOOSOOOSOOSOOO OOOO OOOO COCOOCOOO OOOO OCOCOOOOOCOOOOOOOOOOOOOoOO OPM 
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OenooT RMSDEACCESS = PERFORM FCP DEACCESS FUNCT 1 ~$Eb 21382 99: 93: § RMS.SRCIJRMOACCESS.MAR;2 . (93) 
428 1138 3; swap the words of ifb$l_hbk and ifb$l_ebk to match files-11 
42B 11 3 on-disk structure 
158 yid) 
5409 70.49 10 9¢ 0498 114g 40S: OTL #16, IFBSL_HBK(R9) , JFBSL_HBK_DISK(R9) | 
SB AD 74.A9 10 GC OUST 1148 ROTL #16, IFBSLTEBK(R9) . IFBSL-EBK-DISK(R9) | 
437 1145 ; 
437 1138 ; do the deaccess gio 
437 1147; 
437 1133 
50 34 9A 0437 114 MOVZBL #I0$_DEACCESS,RO 3; deaccess function code 
00 DD 043A 1150 PUSHL # ; p6 = 0 for qio 
OC AE F Be Cc 333) PUSHAL 12(SP) ; p5 = address of attribute List 
FBBE' 30 043F 1136 BSBW RMSFCPFNC_P4 ; do the deaccess acp function 
14 BA 0k 115 POPR #*M<R2,R45 ; get fib len & addr 
BE DS 0444 1154 50S: TSTL (SP)+ ; remove attribute List from stack 
FC 12 0446 1155 BNEQ 50$ : 
50 D 044 1128 PUSHL RO 3 save status code 
FBB3' 0 O44A 115 BSBW RMSRETSPC1 ; deallocate the fib 
01 BA 044d 1158 POPR #*M<RO> 3; restore the etetus code 
07 50 «E99 O44F 1159 BLBC RO, ERRDAC : branch if err 
03 56 =O«EB BO 38 1160 BLBS R6,60$ : branch if no os error 
50 56 00 0455 1161 MOVL R6,R0 3 report xab error 
05 0458 1106 60$: KSB 
0459 116 
0459 1164 ERRDAC: 
0459 1165 RMSERR DAC,R1 ; default error code 
O45F 1166 BRW RMSMAPERR 3 go handle error 
0461 1167 
0461 1168 
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FWAST_STATBLK = 900001A8 NETMASK 000000¢0 | 
FWASV NODE s 1 NTSACCESS teeeeese X01 | 
FWASW-UCHAR s bb NTS$CLOSE teeneeee X01 | 
1FBSB~BKS = 3 NTSDEACCESS teeeeeee Xf | 
IFBSB-FAC 2 NTSNWA_ FREE teeeeeee X01 | 
1FBSB~JNLFLG 2 A NTSOPE cercoee th GR: | 
IF BSB-JNLFLG2 = A NTSSUP_FOP tereenee X01 | 
1F BSB "MODE = 00000004 NTACC 0000012 R 1 | 
1FBSB~ORGCASE = 00 3 NTDA O00038E R 1 | 
1FBSB-RECVRFLGS = 00000041 P4 P 0000365 R 1 | 
1FBSB~RFMORG : 50 PCBSL_STS = 00000024 

1FBSB~SHR = 0000004 PCBSV-RECOVER = 0000001A 

1FBSC~FHAEND = 9000006 PIOSATRACE teeeeree X01 

1FBSC~1DX = 000000 PSL$C “EXEC = 00000001 

IFBSC“REL = 00000001 PSLSC~SUPER = 00000002 

IFBSC~SEG = 90000000 RET 00000045 R 01 

IF BSL ~BLBBLNK = 9000009¢ RETURN 000001¢5 01 | 
IFBSL~BLBFLNK = 9000009 RJBSM_OPEN = 00000010 

IF BSL ~DEVBUF S12 = 00000048 $v7 = 00000003 

1FBSL~DVBN = 00000080 RJBSWFLAGS = 0000000A 

1FBSL~EB = 00000074 ACCES 00000000 RG ~—s 1 

IFBSL~EBK_DISK = 00000058 RMSALBLB eeeeeees 01 

1FBSL HB = 00000070 RMSASSJNL teeeeees 01 

IFBSL~HBK_DISK = 00000054 RMSCREACC_SET1 00000233 RG. 01 

IFBSL~PRIA_DEV = 00000000 RMSCREACCSET2 0000031F R 01 
1FBSL~ = 00000044 RMSCREACC~SET 00000339 RG 01 | 
1FBSL~SFSB_PTR = 00000078 RMSDEACCESS 00000381 RG 01 

IFBSM_NEVER_RU = 00000020 RMSFCPFNC eeeeeeee =X 01 | 
IFBSM~ONLY_RU = 00000001 RMSFCPFNC_PG teeeeeee X01 
1FBSM~ = 00000002 RMSFCP P4~P2 00000383 RG. 01 | 
1FBS$S~ORG = 00000004 RMSGETTPAG teeeeeee X01 
IFBSV~ACCESSED = 00000025 RMSGETSPC1 teeeeeee X01 

IFBSV~AI_RECVR = 00000001 RMSINIT.SFSB eeeeeeee X01 

1FBSV~BI~RECVR = 90000002 RMSMAPERR teeeneee X01 

1FBSV~DAP = 0000003E RMSMAPJNL teeeeeee X01 

IFB$V~DAP_OPEN = 0000003D RMSMAPJNL_RU teeeenee X01 

IFBSV~DFW = 0000002¢ RMSOPEN_XAB teeeeeee X01 

IFBSV-NSE = 00000031 RMSOPEN-XAB1 teeseeee XO | 
IF BSV_NORECLK = 00000033 RMSRETIPAG aeeeeeee =X (i 

IFBSV~NSP = 0000003F RMSRETSPC1 eeeneeee X01 | 
IFBS$V~ORG = 00000004 RMSRTVINL teeeeeee XT 

IFBSV~RU = 00000001 RMSSETEBK 00000109 RG. ~—s01 

IFBSV~RUP = 00000002 RMSSETHBK 00000087 RG —sO1 

IFBSV~RU_RECVR = 9000000 RMSKAB_ SCAN teeneree X01 | 
1FBSV~RU-RLK = RMACC 00000046 R 01 

IFBSV~RWC = 000000¢ RMS$_ACC = 90016002 | 
IFBSV~SEQFIL = 90000038 RMS$~DAC = 0001¢01 | 
IFB$V~S00 = 0000002D RMSS_IFF = 00018804 | 
IFBSV~TEF = 00000036 RMS$"NRU = 000187FC | 
IFBSV~WRTACC z 0 RMSS~SHR = 00018684 | 
IFBSW~BUFFER_OFF SET = 000000A8 S$"UPI = 000187AC | 
IFBSU"FFB = 0000005 RUCBSB_CTRL = 00000011 | 
1FBSW7LRL 2 005 RUCBSV-ACTIVE = 90000001 | 
IMP$V~ IORUNDOWN 2 0 SE TNORECLK 000016 R 01 | 
cer : Wats iy Sit Hi 
1O$~DEACCESS  b0gp003e SHRCHK BO001R9 01 
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poene 00000225 R 1 
TPTSL_ACCESS eeeneree 8X 1 
TPTSL_DEACCES eeeerene 1 
UPIER OOOOIEE R 1 
x PRO = 0000001 
XAB$C_PROLEN_V3 = 4444 1 
x _RDT = QOOOO0TE 
XABSC_RDTLEN = 00000014 
XBC$C_CLSPRO teeeeere YX 01 
XBCSC_CLSRDT steerer KX 01 

pesseccea nen ens ae + 

! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 000004661 ( 1121.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 «¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

pn dseenamaietntewenel 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization | 29 00:00:00.06 00:00:01 «44 
Command processing 127 00:00:00.69 00:00:05.33 
Pass 495 00:00:20.28 00:00:53.79 
Symbol table sort 2 00:00:03.04 00:00:05.93 
Pass 206 00:00:04.55 00:00:09.88 
Symbol table output 28 bs Bo 00:00:00.30 
Psect synopsis output 1 sb 3 2 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 890 00:00:28.84 00:01:16.49 


The working set Limit was 1800 pages. , 

116398 bytes (228 pages) of virtual memory were used to buffer the intermediate code. 

There were 110 pages of symbol table space allocated to hold 2087 non-local and 70 local symbols. 
source Lines were read in Pass 1, produc ing 17 object records in Pass 2 

34 pages of virtual memory were used to define 53 macros. 


ema meme ene name rman en ee mene + 


Macro Library name Macros defined 
~$333$0UA28: RMS .OBJ RMS .MLB; | 15 
_$255$DUA28: (SYS .OBJJLIB.MLB; 1 4 
$255$DUA28: (SYSLIBISTARLET .MLB; 2 10 
TOTALS (all Libraries) 29 


2213 GETS were required to define 29 macros. 


There were no errors, warnings or information messages. 
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MACRO/LIS=LIS$:RMOACCESS/OBJ=OBJ$:RMOACLESS MSRC$:RMOACCESS/UPDATE=(ENH$:RMOACCESS) +EXECMLS$/LIB+LIB$:RMS/LIB 


Oanett ae Macro Run Statistics 


v04-00 Page 29 
29° 93 


OACCESS.MAR;2 ) 
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